Script: --on windowEvent wdID,wdName,objNo,objName,objValue¬global gFoundIssues¬¬----------------------¬-- This is window #29¬----------------------¬¬if objValue="Open" then ¬ put wdID into myWdID¬ ¬ -- Restore old window position¬ put OldWindowPosition(29) into windowRect¬ if windowRect = empty then wsSet wdID,0,"TopLeft","2,40"¬ else wsSet wdID,"0","Rect",windowRect¬ ¬ wsSet wdID,"FoundIssues","Text", char 1 to 32000 of gFoundIssues¬ wsSet wdID,"FoundIssues","Selection", 1¬ if there is a window "Find Comics" then ¬ wsSend "Find Comics","0","SendToBack"¬ end if¬ if there is a menuItem "Close" of menu "File" then¬ enable menuItem "Close" of menu "File"¬ end if¬ set cursor to arrow¬ ¬else if objValue="Close" then ¬ -- save the window position¬ put "29" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 29 of gWindowPositions¬ put frontWindow() into theFrontID¬ if wsGet(theFrontID,"0","HasCloseBox") <> "True" then¬ if there is a menuItem "Close" of menu "File" then¬ disable menuItem "Close" of menu "File"¬ end if¬ end if¬ ¬else if objValue="Suspend" then ¬ put frontWindow() into theFrontID¬ if wsGet(theFrontID,"0","HasCloseBox") <> "True" then¬ if there is a menuItem "Close" of menu "File" then¬ disable menuItem "Close" of menu "File"¬ end if¬ end if¬ ¬else if objValue="Resume" then ¬ if there is a menuItem "Close" of menu "File" then¬ enable menuItem "Close" of menu "File"¬ end if¬else ¬ -- put objValue¬end if¬--end windowEvent
Params: i3_Text
ItemType: PUSH
Rect: 205,169,293,189
TextSize: 12
AutoSize: FALSE
Name: Select
DefaultItem: TRUE
Balloon: Click here to go to the issue you’ve selected in the list to the left.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gFoundIndex, titleList, gNotesLine, findType, gFindSubject¬global gCompositeListing¬¬set cursor to busy¬unlock messages¬¬put wsGet(wdID,"FoundIssues","Selection") into theLine¬¬set the itemDelimiter to tab¬put item 1 of line theLine of gFoundIndex into targetTitle¬put item 3 of line theLine of gFoundIndex into issueIndex¬¬¬if issueIndex = 0 then -- It's a title¬ lock screen¬ set cursor to watch¬ go cd targetTitle of bg "Title"¬end if¬¬if findType = "Title Description" then ¬ repeat while the lockscreen = true¬ unlock screen¬ end repeat¬ find gFindSubject in fld "Blurb Text" -- To hilite the text¬else if issueIndex <> 0 then -- Issues only, not titles¬ lock screen¬ put find(titleList,targetTitle,"Line","Exact") into targetTitleLine¬ ¬ if targetTitleLine = 0 then answer "Sorry, but I don’t seem to be able to find that."¬ else¬ go cd targetTitleLine of bg "Title"¬ set cursor to busy¬ ¬ if the visible of bg btn "Prices" then showPrices¬ if issueIndex = empty then¬ put item 2 of line theLine of gFoundIndex into targetIssue¬ set the itemDelimiter to comma¬ put item 1 of Find(fld "Comic #",targetIssue,"Line","Exact") into issueIndex¬ end if¬ set cursor to busy¬ ¬ put issueIndex into gNotesLine¬ ¬ -- Figure out which line to select¬ if issueIndex <= the number of lines of LongPage(gCompositeListing,1) then¬ select line issueIndex of fld "Composite Listing"¬ else¬ put 1 into groupNumber¬ repeat forever¬ subtract the number of lines of LongPage(gCompositeListing, groupNumber) from issueIndex¬ add 1 to groupNumber¬ put LongPage(gCompositeListing, groupnumber) into theBlock¬ if issueIndex <= the number of lines of theBlock then¬ lock screen¬ put groupNumber into gCompositeGroup¬ if gCompositeGroup = 4 then set the enabled of bg btn "Next group" to false¬ else set the enabled of bg btn "Next group" to LongPage(gCompositeListing, gCompositeGroup + 1) ≠ empty¬ set the enabled of bg btn "Prev group" to true¬ put theBlock into fld "Composite Listing"¬ set the scroll of fld "Composite Listing" to 0¬ put gCompositeGroup into fld "Group Number"¬ select line issueIndex of fld "Composite Listing"¬ unlock screen¬ exit repeat¬ end if¬ end repeat¬ end if¬ ¬ send displayLineStuff to fld "Composite Listing"¬ end if¬end if¬--end mouseup¬
ItemType: LIST
Rect: 11,45,308,155
TextFont: Geneva
TextSize: 9
AutoSize: FALSE
GrowItem: TRUE
Name: FoundIssues
DoubleClickItem: 1
KeyScroll: TRUE
Text:
Balloon: This is a list of all the issues that match the criteria you specified before. Choose a specific issue you’d like information on, then click the “Select” button to go to that issue.
ItemType: TEXT
Rect: 11,5,308,41
TextFont: Geneva
TextSize: 9
Name: Message
WhiteColor: -8739,-8739,-8739
Text: The following comics were found that contain <the event>.
ItemType: PUSH
Rect: 11,169,99,189
TextSize: 12
AutoSize: FALSE
Name: Preview…
Balloon: Click here to go to the issue you’ve selected in the list to the left.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gDoPreview¬¬put true into gDoPreview¬send PrintFoundComics to cd btn "PrintComicInfo" of cd 2¬--end mouseup¬
ItemType: PUSH
Rect: 106,169,194,189
TextSize: 12
AutoSize: FALSE
Name: Print…
Balloon: Click here to go to the issue you’ve selected in the list to the left.
Script: --on mouseUp wdID,wdName,objNo,objName,objValue¬global gDoPreview¬¬put false into gDoPreview¬send PrintFoundComics to cd btn "PrintComicInfo" of cd 2¬--end mouseup¬
